<script>on mouseUpEdit Script of this stackend mouseUp</script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>70</left>
<top>0</top>
<right>124</right>
<bottom>12</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>AUFSToken</name>
<script></script>
</part>
<part>
<id>20</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>69</left>
<top>16</top>
<right>123</right>
<bottom>28</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>AUFSUser</name>
<script></script>
</part>
<part>
<id>48</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>289</top>
<right>58</right>
<bottom>339</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1006</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Done</name>
<script>on mouseUpif number of lines of the stacks = 1then domenu "Quit HyperCard"else domenu "Close Stack"end mouseUp</script>
</part>
<part>
<id>27</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>153</left>
<top>291</top>
<right>200</right>
<bottom>341</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>17357</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>RollBack</name>
<script>on mouseUpanswer "Are you sure you want to discard changes?" ¬with "Confirm" or "Cancel"if it = "Cancel" then exit MouseUpDisconnect "RollBack"end mouseUp</script>
</part>
<part>
<id>31</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>256</left>
<top>166</top>
<right>466</right>
<bottom>184</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Server</name>
<script></script>
</part>
<part>
<id>32</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>11</left>
<top>73</top>
<right>200</right>
<bottom>281</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Volumes</name>
<script>on mouseUpglobal ClickedLineput ScrollLineClicked(0) into ClickedLineget line ClickedLine of fld "Volumes"if it is emptythen put 0 into ClickedLineelse select line ClickedLine of fld "Volumes"end mouseUp</script>
<script>on mouseUpglobal ClickedLineif ClickedLine = 0 or fld "Ident" is emptythen beepelseput fld "Ident" into line ClickedLine of fld Volumesput Encode() into line ClickedLine of fld "Details"select line ClickedLine of fld "Volumes"end ifend mouseUp</script>
</part>
<part>
<id>38</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>256</left>
<top>256</top>
<right>466</right>
<bottom>274</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Password</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Password</name>
<script></script>
</part>
<part>
<id>39</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>256</left>
<top>85</top>
<right>466</right>
<bottom>103</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Ident</name>
<script></script>
</part>
<part>
<id>40</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>202</left>
<top>231</top>
<right>245</right>
<bottom>281</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>13182</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Remove</name>
<script>on mouseUpglobal ClickedLineif ClickedLine = 0then beepelsedelete line ClickedLine of fld "Volumes"delete line ClickedLine of fld "Details"end ifend mouseUp</script>
</part>
<part>
<id>43</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>202</left>
<top>179</top>
<right>245</right>
<bottom>229</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>20186</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Insert</name>
<script>on mouseUpglobal ClickedLineif fld "Ident" is emptythen beepelseif ClickedLine = 0thenput fld "Ident" & return after fld "Volumes"put Encode() & return after fld "Details"put number of lines of fld "Volumes" into ClickedLineelseput fld "Ident" & return before line ClickedLine of fld "Volumes"put Encode() & return before line ClickedLine of fld "Details"end ifselect line ClickedLine of fld "Volumes"end ifend mouseUp</script>
</part>
<part>
<id>45</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>202</left>
<top>73</top>
<right>245</right>
<bottom>123</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>8538</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>View</name>
<script>on mouseUpglobal ClickedLineif ClickedLine is emptythenbeepelseset lockscreen to trueput line ClickedLine of fld "Volumes" into fld "Ident"DeCode line ClickedLine of fld "Details"select line ClickedLine of fld "Volumes"end ifend mouseUp</script>
</part>
<part>
<id>13</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>119</left>
<top>122</top>
<right>377</right>
<bottom>179</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Message</name>
<script></script>
</part>
<part>
<id>46</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>433</left>
<top>289</top>
<right>476</right>
<bottom>339</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>-1</titleWidth>
<icon>-6047</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Version</name>
<script>on mouseUpMountAnswer the resultend mouseUp</script>
</part>
<part>
<id>49</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>117</left>
<top>289</top>
<right>160</right>
<bottom>339</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>10181</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Import</name>
<script>on mouseUpDoImportend mouseUp</script>
</part>
<name>Index</name>
<script>on OpenCardDoMountsend OpenCardon DoImportglobal ClickedLineanswer "Please Select stack to import from" with "Cancel" or "Select"if it is "Cancel" then exit DoImportput FileName("STAK") into IStackif IStack is empty then exit DoImport-- Do Itpush cdset lockmessages to trueset lockscreen to truego stack IStackif there is no cd "Menu" of bg "Index"thenbeeppop cdanswer "Cannot import from" && IStackelsego cd "Menu" of bg "Index"if there is no bg fld "Details" or there is no bg fld "Volumes"thenbeeppop cdanswer "Cannot import from" && IStackelseput bg fld "Details" into detsput bg fld "Volumes" into volspop cdput dets into bg fld "Details"put vols into bg fld "Volumes"put 1 into ClickedLineDeCode line 1 of fld "Details"select line 1 of fld "Volumes"send mouseUp to bg btn "View"end ifend ifend DoImporton MountVolumesglobal Volsput ToList(fld "Volumes") into thelistDoList "Volumes", "Cancel", thelist, DISput the result into Volsgo this cddelete item 1 of VolsDoMountsend MountVolumeson DoMountsglobal Vols, Passwd, AutoMountrepeat while Vols ≠ emptyif Passwd = "••Cancel••"then put empty into Passwdelseput item 1 of Vols into vol-- Load the volume informationget fld "Volumes"repeat with i = 1 to number of lines of itif vol = line i of itthenput i into vollineexit repeatend ifend repeatput line volline of fld "Details" into detsrepeat while offset(tab, dets) > 0put return into char( offset(tab, dets) ) of detsend repeatif Passwd ≠ emptythenput Passwd into line 5 of detsput empty into NewPasswdend if-- Attempt to mountput return & "Mounting Volume" && vol & " " into fld "Message"show fld "Message"repeat with i = 1 to 3set cursor to busy-- put "Mounting" && volMount (line 1 of dets), (line 2 of dets), (line 3 of dets), ¬(line 4 of dets), (line 5 of dets)put the result into Res-- put "Mounting" && vol && "returned" && Resif Res is empty then exit repeatput ".." after fld "Message"end repeatif word 1 to 2 of Res = "Login failure"thenput "Enter Password for" && line 4 of dets ¬into fld "AskText" of cd "AskPassword"hide fld "Message"go cd "AskPassword"exit repeatend ifif Res ≠ emptythenput return & Res into fld "Message"answer "Could not mount '" & vol & "'"end ifhide fld "Message"end ifdelete item 1 of Volsend repeatif Vols = empty and AutoMountthenif number of lines in the stacks = 1then domenu "Quit Hypercard"else domenu "Close Stack"end ifend DoMountson Decode txtset lockscreen to truerepeat while offset(tab, txt) > 0put return into char( offset(tab, txt) ) of txtend repeatput line 1 of txt into fld "Zone"put line 2 of txt into fld "Server"put line 3 of txt into fld "Volume"put line 4 of txt into fld "User"put line 5 of txt into fld "Password"set lockscreen to falseend Decodefunction Encodereturn fld "Zone" & tab & fld "Server" & tab & fld "Volume" ¬& tab & fld "User" & tab & fld "Password"end Encode© 1989-1992 John Glauert, UEA Norwich, UK.XCMD from Apple</script>
